home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / PlayMod10 / PlayMod < prev    next >
Text File  |  1996-01-04  |  1KB  |  49 lines
  1. /*
  2.  *  PlayMod - Play modules with HippoPlayer
  3.  *            (C) 1996 by Piergiorgio Ghezzo
  4.  *
  5.  * $VER: PlayMod 1.0 (04.01.96)
  6.  */
  7.  
  8. PlayerName = 'DH0:UTILITIES/HiP'
  9.  
  10. OPTIONS RESULTS
  11.  
  12. PARSE ARG Modules
  13.  
  14. /*** Se non viene specificato il nome del file esce subito ***/
  15. IF Modules = ''
  16.    THEN DO
  17.    SAY '0A'x||'PlayMod Play a module with HippoPlayer'
  18.    SAY '        (C) 1996 by Piergiorgio Ghezzo'
  19.    SAY '0A'x||'Usage:  PlayMod <filename> [filename] [...]'||'0A'x
  20.    EXIT 0
  21.    END
  22.  
  23. /*** Controllo se HippoPlayer e' gia' presente in memoria ***/
  24. Result = SHOW('Ports','HIPPOPLAYER')
  25. IF Result = 0 THEN ADDRESS COMMAND(PlayerName)
  26.  
  27. CheckLoop:
  28.    Result = SHOW('Ports','HIPPOPLAYER')
  29.    IF Result = 0 THEN SIGNAL CheckLoop
  30.  
  31. ADDRESS 'HIPPOPLAYER'
  32.  
  33. /*** Leggo il numero di moduli presenti ***/
  34. GET NFIL
  35. Pos = Result + 1
  36.  
  37. PARSE VAR Modules FileName Modules
  38. DO WHILE FileName ~= ''
  39.    /*** Aggiunge il modulo alla lista ***/
  40.    ADD FileName
  41.    PARSE VAR Modules FileName Modules
  42.    END
  43.  
  44. /*** Sceglie il primo dei moduli appena caricati ***/
  45. CHOOSE Pos
  46.  
  47. /*** Esegue il modulo ***/
  48. PLAY
  49.